Sub MAIN
' Delete a file from the disk
Input "File to delete" ; fil$
' Erase the file
If(len(fil$) > 0) Then Kill fil$
End Sub